home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STFILE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-11-20  |  3.0 KB  |  259 lines
  1.  
  2. #include <stdio.h>
  3. #include <ctype.h>
  4. #include "pogo.h"
  5.  
  6. FILE *po_file;
  7.  
  8. jexists(name)
  9. char *name;
  10. {
  11. FILE *f;
  12.  
  13. f = fopen(name, "r");
  14. if (f != NULL)
  15.     {
  16.     fclose(f);
  17.     return(1);
  18.     }
  19. return(0);
  20. #ifdef LATER
  21. #endif LATER
  22. }
  23.  
  24. open_pogo_file(name)
  25. char *name;
  26. {
  27. if ((po_file = fopen(name, "r")) == NULL)
  28.     return(0);
  29. else
  30.     return(1);
  31. #ifdef LATER
  32. #endif LATER
  33. }
  34.  
  35. close_pogo_file()
  36. {
  37. if (po_file != NULL)
  38.     {
  39.     fclose(po_file);
  40.     po_file = NULL;
  41.     }
  42. #ifdef LATER
  43. #endif LATER
  44. }
  45.  
  46. /* some tokenizing stuff */
  47. char *
  48. pget_line(buf, max)
  49. char *buf;
  50. int max;
  51. {
  52. if (fgets(buf, max, po_file) == NULL)
  53.     return(NULL);
  54. return(buf);
  55. #ifdef LATER
  56. #endif LATER
  57. }
  58.  
  59. #define FMAX 21
  60.  
  61. FILE *pgfiles[FMAX];
  62.  
  63. good_file(i)
  64. int i;
  65. {
  66. if (i>0 && i < FMAX && pgfiles[i] != NULL)
  67.     return(1);
  68. else
  69.     {
  70.     say_fatal("Bad file parameter");
  71.     return(0);
  72.     }
  73. }
  74.  
  75. popen(p)
  76. union pt_int *p;
  77. {
  78. char *name, *mode;
  79. FILE *f;
  80. int i;
  81.  
  82. name = p[-2].p;
  83. mode = p[-1].p;
  84. if (name == NULL || mode == NULL)
  85.     {
  86.     return(0);
  87.     }
  88. for (i=1; i<FMAX+1; i++)
  89.     {
  90.     if (pgfiles[i] == NULL)
  91.         {
  92.         if ((f = fopen(name, mode)) == NULL)
  93.             return(NULL);
  94.         pgfiles[i] = f;
  95.         return(i);
  96.         }
  97.     }
  98. return(0);
  99. }
  100.  
  101. pclose(p)
  102. union pt_int *p;
  103. {
  104. int f;
  105.  
  106. f = p[-1].i;
  107. if (good_file(f))
  108.     {
  109.     fclose(pgfiles[f]);
  110.     pgfiles[f] = NULL;
  111.     }
  112. }
  113.  
  114. pgetchar(p)
  115. union pt_int *p;
  116. {
  117. int f;
  118.  
  119. f = p[-1].i;
  120. if (good_file(f))
  121.     {
  122.     return(getc(pgfiles[f]));
  123.     }
  124. else
  125.     return(-1);
  126. }
  127.  
  128. char *
  129. pgetword(p)
  130. union pt_int *p;
  131. {
  132. char buf[256];
  133. int pf;
  134. FILE *f;
  135. int i;
  136. int c;
  137. char *s;
  138.  
  139. pf = p[-1].i;
  140. if (good_file(pf))
  141.     {
  142.     f = pgfiles[pf];
  143.     for (;;)
  144.         {
  145.         c = getc(f);
  146.         if (!isspace(c))
  147.             break;
  148.         }
  149.     if (c == EOF)
  150.         return(NULL);
  151.     for (i=0; i<255; i++)
  152.         {
  153.         buf[i] = c;
  154.         c = getc(f);
  155.         if (c == EOF || isspace(c))
  156.             break;
  157.         }
  158.     buf[i+1] = 0;
  159.     if ((s = clone_string(buf)) != NULL)
  160.         add_cr_string(s);
  161.     return(s);
  162.     }
  163. else
  164.     return(NULL);
  165. }
  166.  
  167. char *
  168. pgetline(p)
  169. union pt_int *p;
  170. {
  171. char buf[256];
  172. int pf;
  173. FILE *f;
  174. int i;
  175. int c;
  176. char *s;
  177.  
  178. pf = p[-1].i;
  179. if (good_file(pf))
  180.     {
  181.     f = pgfiles[pf];
  182.     for (i=0; i<255; i++)
  183.         {
  184.         c = getc(f);
  185.         if (c == EOF)
  186.             {
  187.             if (i == 0)
  188.                 return(NULL);
  189.             break;
  190.             }
  191.         buf[i] = c;
  192.         if (c == '\n')
  193.             break;
  194.         }
  195.     buf[i+1] = 0;
  196.     if ((s = clone_string(buf)) != NULL)
  197.         add_cr_string(s);
  198.     return(s);
  199.     }
  200. else
  201.     return(NULL);
  202. }
  203.  
  204. pputchar(p)
  205. union pt_int *p;
  206. {
  207. int pf;
  208. FILE *f;
  209.  
  210. pf = p[-2].i;
  211. if (good_file(pf))
  212.     {
  213.     f = pgfiles[pf];
  214.     if (putc(p[-1].i, f) == EOF)
  215.         return(0);
  216.     return(1);
  217.     }
  218. else
  219.     return(0);
  220. }
  221.  
  222. p_puts(p, nl)
  223. union pt_int *p;
  224. int nl;
  225. {
  226. int pf;
  227. FILE *f;
  228. register char *s;
  229.  
  230. pf = p[-2].i;
  231. if (good_file(pf))
  232.     {
  233.     f = pgfiles[pf];
  234.     s = p[-1].p;
  235.     while (*s != NULL)
  236.         {
  237.         if (putc(*s++, f) == EOF)
  238.             return(0);
  239.         }
  240.     if (nl)
  241.         putc('\n', f);
  242.     return(1);
  243.     }
  244. else
  245.     return(0);
  246. }
  247.  
  248. pputs(p)
  249. union pt_int *p;
  250. {
  251. return(p_puts(p, 0));
  252. }
  253.  
  254. pputline(p)
  255. union pt_int *p;
  256. {
  257. return(p_puts(p, 1));
  258. }
  259.